object AdrForm: TAdrForm
  Left = 40
  Top = 23
  Width = 570
  Height = 401
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Address/Contacts Manager.'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel4: TBevel
    Left = 1
    Top = 22
    Width = 559
    Height = 2
  end
  object Bevel5: TBevel
    Left = 122
    Top = 3
    Width = 2
    Height = 17
  end
  object Bevel3: TBevel
    Left = 1
    Top = 0
    Width = 559
    Height = 2
  end
  object Bevel6: TBevel
    Left = 278
    Top = 3
    Width = 2
    Height = 17
  end
  object TrackBar: TTrackBar
    Left = 283
    Top = 2
    Width = 277
    Height = 20
    Hint = 'Position Indicator/Selector'
    Ctl3D = True
    Max = 50
    Orientation = trHorizontal
    ParentCtl3D = False
    ParentShowHint = False
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    ShowHint = True
    TabOrder = 10
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBarChange
  end
  object GroupBox1: TGroupBox
    Left = 1
    Top = 24
    Width = 305
    Height = 291
    Caption = 'Main Details'
    TabOrder = 0
    object Bevel1: TBevel
      Left = 6
      Top = 189
      Width = 294
      Height = 2
    end
    object Bevel2: TBevel
      Left = 6
      Top = 90
      Width = 294
      Height = 2
    end
    object CheckBox1: TCheckBox
      Left = 7
      Top = 20
      Width = 15
      Height = 17
      TabStop = False
      Caption = 'CheckBox1'
      TabOrder = 16
      OnClick = CheckBox1Click
    end
    object Button1: TButton
      Left = 26
      Top = 19
      Width = 75
      Height = 20
      Caption = 'Title'
      TabOrder = 8
      TabStop = False
      OnClick = Button1Click
    end
    object Edit1: TEdit
      Left = 103
      Top = 18
      Width = 193
      Height = 21
      AutoSelect = False
      TabOrder = 0
      OnChange = Edit1Change
    end
    object Memo4: TMemo
      Left = 103
      Top = 96
      Width = 193
      Height = 89
      ScrollBars = ssVertical
      TabOrder = 3
      OnChange = Edit1Change
    end
    object CheckBox6: TCheckBox
      Tag = 5
      Left = 7
      Top = 219
      Width = 15
      Height = 17
      TabStop = False
      Caption = 'CheckBox6'
      TabOrder = 17
      OnClick = CheckBox1Click
    end
    object Button6: TButton
      Tag = 5
      Left = 26
      Top = 218
      Width = 75
      Height = 20
      Caption = 'email'
      TabOrder = 13
      TabStop = False
      OnClick = Button1Click
    end
    object Edit6: TEdit
      Left = 103
      Top = 217
      Width = 193
      Height = 21
      AutoSelect = False
      TabOrder = 5
      OnChange = Edit1Change
    end
    object CheckBox7: TCheckBox
      Tag = 6
      Left = 7
      Top = 243
      Width = 15
      Height = 17
      TabStop = False
      Caption = 'CheckBox7'
      TabOrder = 18
      OnClick = CheckBox1Click
    end
    object Button7: TButton
      Tag = 6
      Left = 26
      Top = 242
      Width = 75
      Height = 20
      TabOrder = 14
      TabStop = False
      OnClick = Button1Click
    end
    object Edit7: TEdit
      Left = 103
      Top = 241
      Width = 193
      Height = 21
      AutoSelect = False
      TabOrder = 6
      OnChange = Edit1Change
    end
    object CheckBox2: TCheckBox
      Tag = 1
      Left = 7
      Top = 44
      Width = 15
      Height = 17
      TabStop = False
      Caption = 'CheckBox2'
      TabOrder = 19
      OnClick = CheckBox1Click
    end
    object Button2: TButton
      Tag = 1
      Left = 26
      Top = 43
      Width = 75
      Height = 20
      Caption = 'Surname'
      TabOrder = 9
      TabStop = False
      OnClick = Button1Click
    end
    object Edit2: TEdit
      Left = 103
      Top = 42
      Width = 193
      Height = 21
      AutoSelect = False
      TabOrder = 1
      OnChange = Edit1Change
    end
    object CheckBox3: TCheckBox
      Tag = 2
      Left = 7
      Top = 67
      Width = 15
      Height = 17
      TabStop = False
      Caption = 'CheckBox3'
      TabOrder = 20
      OnClick = CheckBox1Click
    end
    object Button3: TButton
      Tag = 2
      Left = 26
      Top = 66
      Width = 75
      Height = 20
      Caption = 'Forenames'
      TabOrder = 10
      TabStop = False
      OnClick = Button1Click
    end
    object Edit3: TEdit
      Left = 103
      Top = 65
      Width = 193
      Height = 21
      AutoSelect = False
      TabOrder = 2
      OnChange = Edit1Change
    end
    object CheckBox4: TCheckBox
      Tag = 3
      Left = 7
      Top = 97
      Width = 15
      Height = 17
      TabStop = False
      Caption = 'CheckBox4'
      TabOrder = 21
      OnClick = CheckBox1Click
    end
    object Button4: TButton
      Tag = 3
      Left = 26
      Top = 96
      Width = 75
      Height = 20
      Caption = 'Address'
      TabOrder = 11
      TabStop = False
      OnClick = Button1Click
    end
    object CheckBox5: TCheckBox
      Tag = 4
      Left = 7
      Top = 196
      Width = 15
      Height = 17
      TabStop = False
      Caption = 'CheckBox5'
      TabOrder = 22
      OnClick = CheckBox1Click
    end
    object Button5: TButton
      Tag = 4
      Left = 26
      Top = 195
      Width = 75
      Height = 20
      Caption = 'Telephone'
      TabOrder = 12
      TabStop = False
      OnClick = Button1Click
    end
    object Edit5: TEdit
      Left = 103
      Top = 194
      Width = 193
      Height = 21
      AutoSelect = False
      TabOrder = 4
      OnChange = Edit1Change
    end
    object CheckBox8: TCheckBox
      Tag = 7
      Left = 7
      Top = 265
      Width = 15
      Height = 17
      TabStop = False
      Caption = 'CheckBox8'
      TabOrder = 23
      OnClick = CheckBox1Click
    end
    object Button8: TButton
      Tag = 7
      Left = 26
      Top = 265
      Width = 75
      Height = 20
      TabOrder = 15
      TabStop = False
      OnClick = Button1Click
    end
    object Edit8: TEdit
      Left = 103
      Top = 264
      Width = 193
      Height = 21
      AutoSelect = False
      TabOrder = 7
      OnChange = Edit1Change
    end
  end
  object TabSet: TTabSet
    Left = 2
    Top = 313
    Width = 303
    Height = 21
    DitherBackground = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Tabs.Strings = (
      'Other'
      'A'
      'B'
      'C'
      'D'
      'E'
      'F'
      'G'
      'H'
      'I'
      'J'
      'K'
      'L'
      'M'
      'N'
      'O'
      'P'
      'Q'
      'R'
      'S'
      'T'
      'U'
      'V'
      'W'
      'X'
      'Y'
      'Z')
    TabIndex = 0
    OnChange = TabSetChange
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 336
    Width = 562
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Width = 250
      end
      item
        Width = 50
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object Loadbtn: TBitBtn
    Left = 1
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Load An Address File'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = Load1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
      07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
      0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object Savebtn: TBitBtn
    Left = 29
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Save'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = Save1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object SaveAsbtn: TBitBtn
    Left = 57
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Save File As'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = SaveAs1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
      3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
      B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
      33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
      000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
      033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
      BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
      33B33733333773333373B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object Newbtn: TBitBtn
    Left = 85
    Top = 1
    Width = 28
    Height = 22
    Hint = 'New'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = New1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
      0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
      33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object GroupBox2: TGroupBox
    Left = 309
    Top = 24
    Width = 196
    Height = 140
    Caption = 'Address Notes'
    TabOrder = 1
    object Memo9: TMemo
      Left = 5
      Top = 18
      Width = 185
      Height = 117
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
      OnChange = Edit1Change
    end
  end
  object Panel1: TPanel
    Left = 512
    Top = 28
    Width = 50
    Height = 301
    BevelOuter = bvLowered
    Color = clTeal
    TabOrder = 6
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 49
      Height = 18
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 0
      Top = 283
      Width = 49
      Height = 17
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
    end
    object Backbtn: TBitBtn
      Left = 1
      Top = 18
      Width = 24
      Height = 20
      Hint = 'Back A Record'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BackbtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F77F33333333333009033
        333333333F7737F333333333009990333333333F773337FFFFFF330099999000
        00003F773333377777770099999999999990773FF33333FFFFF7330099999000
        000033773FF33777777733330099903333333333773FF7F33333333333009033
        33333333337737F3333333333333003333333333333377333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Forwardbtn: TBitBtn
      Left = 25
      Top = 18
      Width = 24
      Height = 20
      Hint = 'Forward A Record'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = ForwardbtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Firstbtn: TBitBtn
      Left = 1
      Top = 38
      Width = 24
      Height = 20
      Hint = 'Back To First Record'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = FirstbtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333333333333333FF333333333333
        3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
        E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
        E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
        E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
        000033333373FF77777733333330003333333333333777333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Lastbtn: TBitBtn
      Left = 25
      Top = 38
      Width = 24
      Height = 20
      Hint = 'Goto Last Record'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = LastbtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Linkbtn: TBitBtn
      Left = 1
      Top = 121
      Width = 48
      Height = 20
      Hint = 'Show Link With Diary'
      Caption = 'Link'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = ViewEdit1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300033300000
        00003777FF377777777707070330FFFFFFF077777F37F3FF3FF707370330F00F
        00F077F77F37F773773707370330FFFFFFF077F77F37F3FFFF3707070330F000
        0FF077777337F777733730003330FFFFFFF037773337F3FF3FF733033330F00F
        0000337FFF37F773777733000330FFFF0FF033777FF7F3FF7F3733007030F08F
        0F03337777F7F7737F7330703700FFFF003337773777FFFF7733307333700000
        0333377FF37777777FFF33073070333000033377F777FF37777F333077000307
        7770333777777F7777773333003300003300333377337777FF77333333333307
        7770333333333377777733333333333000033333333333377773}
      NumGlyphs = 2
    end
    object Find1: TBitBtn
      Left = 1
      Top = 61
      Width = 48
      Height = 20
      Hint = 'Search Address Book'
      Caption = 'Find'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = Search2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Sift1: TBitBtn
      Left = 1
      Top = 81
      Width = 48
      Height = 20
      Hint = 'Sift Search'
      Caption = 'Sift'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      OnClick = SiftSearch1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Print3: TBitBtn
      Left = 1
      Top = 101
      Width = 48
      Height = 20
      Hint = 'Print Current Address'
      Caption = 'Print'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnClick = CurrentAddress1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object Helpbtn: TBitBtn
      Left = 1
      Top = 264
      Width = 48
      Height = 20
      Hint = 'Address Book Help'
      Caption = 'Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnClick = UsingTheAddressBook1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF3333333333377777333333}
      NumGlyphs = 2
    end
    object Swapbtn: TBitBtn
      Left = 1
      Top = 144
      Width = 48
      Height = 20
      Hint = 'Swap Tab Indexes'
      Caption = 'Swap'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnClick = SwapSections1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
        33333333777777733333333330CCC03333333333F7777733F3333330330C0330
        33333337337773373333333333303333333333F33337333333F3303333333333
        3033373333333333373333333333333333333F3333333333333F033333333333
        3303733333333333337333333333333333333F3333333333333F033333333333
        3303733333333333FF7333333333333000333FFFFF33333777FF000003333307
        B70377777F333377777F09990333330BBB0377777F333377777F099903333307
        B70377777F3333777773099903333330003377777F3333377733000003333330
        3333777773F3F3F7333333333030303333333333373737333333}
      NumGlyphs = 2
      Spacing = -2
    end
    object Crossbtn: TBitBtn
      Left = 1
      Top = 164
      Width = 48
      Height = 20
      Hint = 'Cross Reference Diary'
      Caption = 'Cross'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 12
      OnClick = FirstSelectedField1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FF555FFFFFFF5FF0075500000005000775F57777777F7770B0550CC0090
        50E07F7F57FF77F7F7F70B055000000050E07F75F7777777F7F70B7750CC0090
        50E075F7F7F577F7F7F777B050CC009050E057F7F7F577F7F7F750B050CC0090
        50E057F757F577F7F7F750B770CC009050E0575F77F577F7F7F7577B00CC0090
        50E0557F77F577F7F7F7550B30CC00905000557F57FF77F7F777550B30000090
        50E05575F77777F7F7F7557000CC00905000555777FF77F7F777555550000090
        55555555577777F7F5555555555550005555555555555777F555555555555090
        55555555555557F7F55555555555500055555555555557775555}
      NumGlyphs = 2
      Spacing = -1
    end
    object Markbtn: TBitBtn
      Left = 1
      Top = 187
      Width = 48
      Height = 20
      Hint = 'Cross Reference Diary'
      Caption = 'Mark'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 13
      OnClick = MarkAddress1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
      Spacing = -1
    end
  end
  object GroupBox3: TGroupBox
    Left = 309
    Top = 164
    Width = 196
    Height = 164
    Caption = 'Address Index'
    TabOrder = 7
    object IndexList: TListBox
      Left = 6
      Top = 16
      Width = 185
      Height = 128
      ItemHeight = 13
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnClick = IndexListDblClick
    end
    object IndexTab: TTabSet
      Left = 7
      Top = 143
      Width = 183
      Height = 17
      DitherBackground = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Tabs.Strings = (
        'Index'
        'Search'
        'Sift'
        'Bookmarks'
        'Linked')
      TabIndex = 0
      OnChange = IndexTabChange
    end
  end
  object NewEntrybtn: TBitBtn
    Left = 127
    Top = 1
    Width = 28
    Height = 22
    Hint = 'New Address'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = NewEntry1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
      333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
      C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
      F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
      F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
      00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
      3333333373FF7333333333333000333333333333377733333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Cutbtn: TBitBtn
    Left = 158
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Cut Address'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = CutAddress1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333FF3333333333333003333333333333377F33333333333307
      733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
      000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
      777077777777777777773CCCCC00000000003777777777777777333330030FFF
      FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
      FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
      0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
      0F03333333337FFF7F7333333333000000333333333377777733}
    NumGlyphs = 2
  end
  object Copybtn: TBitBtn
    Left = 186
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Copy Address'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    OnClick = CutAddress1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
      007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
      7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
      99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object Pastebtn: TBitBtn
    Left = 214
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Paste Address'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = PasteAddress1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
      FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
      FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
      FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
      0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
      9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
      9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
      99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
      93337777FF777777733370000000073333333777777773333333}
    NumGlyphs = 2
  end
  object Replacebtn: TBitBtn
    Left = 246
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Find & Replace'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    OnClick = FindReplace1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
      055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
      005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
      B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
      305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
      305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
      30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
      3055577777555557F7F555000555555999555577755555577755}
    NumGlyphs = 2
  end
  object Previousbtn: TBitBtn
    Left = 89
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Previous File List'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 16
    OnClick = FromList1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500055555500
      00005777FFFFFF77777750B077000003333057F77777777F555750B070888803
      B3B057F7F75FFF7F555700B07700000B3B3077F7F577777F555750B07777770B
      B3B057F7F555557F555750B07777770BBB3057F7FFFFFF7F555750B00000000B
      BBB057F77777777F555750B05F5F5F0BBBB057F7F7F7F77F555750B05F5F5F0B
      BBB057F7F7F7F77F555750B05F5F5F0BBBB057F7F7F7F77F555750B07777770B
      BBB057F77777777F555750B05F5F5F0BBBB057F7F757577F5557500055555503
      BBB057775555557F555755555555550B3BB055555555557F5557555555555503
      B3B055555555557FFFF755555555550000005555555555777777}
    NumGlyphs = 2
  end
  object MainMenu1: TMainMenu
    Left = 188
    Top = 140
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = New1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Load1: TMenuItem
        Caption = '&Load'
        ShortCut = 16460
        OnClick = Load1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
        ShortCut = 16449
        OnClick = SaveAs1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object PreviousFile1: TMenuItem
        Caption = 'Previous &File'
        object FromList1: TMenuItem
          Caption = '&From List'
          OnClick = FromList1Click
        end
        object N4: TMenuItem
          Caption = '-'
          Visible = False
        end
        object N11: TMenuItem
          Caption = '&1'
          Visible = False
          OnClick = N11Click
        end
        object N21: TMenuItem
          Tag = 1
          Caption = '&2'
          Visible = False
          OnClick = N11Click
        end
        object N31: TMenuItem
          Tag = 2
          Caption = '&3'
          Visible = False
          OnClick = N11Click
        end
        object N41: TMenuItem
          Tag = 3
          Caption = '&4'
          Visible = False
          OnClick = N11Click
        end
        object N51: TMenuItem
          Tag = 4
          Caption = '&5'
          Visible = False
          OnClick = N11Click
        end
      end
      object AutoLoad1: TMenuItem
        Caption = 'AutoLoad'
        OnClick = AutoLoad1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print'
        object CurrentAddress1: TMenuItem
          Caption = 'Current &Address'
          OnClick = CurrentAddress1Click
        end
        object CurrentSection1: TMenuItem
          Caption = 'Current &Section'
          OnClick = CurrentSection1Click
        end
        object All1: TMenuItem
          Caption = '&All'
          OnClick = All1Click
        end
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
      object SaveExit1: TMenuItem
        Caption = 'Sa&ve && Exit'
        OnClick = SaveExit1Click
      end
    end
    object EditM: TMenuItem
      Caption = '&Edit'
      object NewEntry1: TMenuItem
        Caption = '&New Entry'
        ShortCut = 115
        OnClick = NewEntry1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object CutAddress1: TMenuItem
        Caption = 'Cut Address'
        ShortCut = 16472
        OnClick = CutAddress1Click
      end
      object CopyAddress1: TMenuItem
        Caption = 'Copy Address'
        ShortCut = 16451
        OnClick = CutAddress1Click
      end
      object PasteAddress1: TMenuItem
        Caption = 'Paste Address'
        ShortCut = 16470
        OnClick = PasteAddress1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object FindReplace1: TMenuItem
        Caption = '&Find && Replace'
        ShortCut = 16466
        OnClick = FindReplace1Click
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object UpperCase1: TMenuItem
        Caption = '&UpperCase'
        OnClick = UpperCase1Click
      end
      object LowerCase1: TMenuItem
        Tag = 1
        Caption = '&LowerCase'
        OnClick = UpperCase1Click
      end
      object Capitalise1: TMenuItem
        Tag = 2
        Caption = '&Capitalise'
        OnClick = UpperCase1Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object Bookmark1: TMenuItem
        Caption = '&Bookmark'
        object MarkAddress1: TMenuItem
          Caption = '&Mark Address'
          OnClick = MarkAddress1Click
        end
        object N15: TMenuItem
          Caption = '-'
        end
        object ShowBookmark1: TMenuItem
          Caption = '&Show Bookmark'
          OnClick = ShowBookmark1Click
        end
        object ShowAll1: TMenuItem
          Caption = 'Show &All'
          OnClick = ShowBookmark1Click
        end
      end
    end
    object Search1: TMenuItem
      Caption = '&Search'
      object Search2: TMenuItem
        Caption = '&Search'
        ShortCut = 16454
        OnClick = Search2Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object First1: TMenuItem
        Caption = '&First'
        ShortCut = 116
        OnClick = FirstbtnClick
      end
      object Previous1: TMenuItem
        Caption = '&Previous'
        ShortCut = 117
        OnClick = BackbtnClick
      end
      object Next1: TMenuItem
        Caption = '&Next'
        ShortCut = 118
        OnClick = ForwardbtnClick
      end
      object Last1: TMenuItem
        Caption = '&Last'
        ShortCut = 119
        OnClick = LastbtnClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object SiftSearch1: TMenuItem
        Caption = 'Sift Searc&h'
        OnClick = SiftSearch1Click
      end
    end
    object Preferences1: TMenuItem
      Caption = '&Preferences'
      object PrintAddressStyle1: TMenuItem
        Caption = 'Print &Address Style'
        OnClick = PrintAddressStyle1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object PrinterSetup1: TMenuItem
        Caption = 'Printer &Setup'
        OnClick = PrinterSetup1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&Tools'
      object LinkWithDiary1: TMenuItem
        Caption = '&Link With Diary'
        OnClick = LinkWithDiary1Click
      end
      object EstablishLink1: TMenuItem
        Caption = '&Establish Link'
        object ViewEdit1: TMenuItem
          Caption = '&View/Edit'
          OnClick = ViewEdit1Click
        end
        object MergeWithAddress1: TMenuItem
          Caption = '&Merge With Address'
          OnClick = MergeWithAddress1Click
        end
        object N18: TMenuItem
          Caption = '-'
        end
        object ShowAllLinks1: TMenuItem
          Caption = '&Show All Links'
          OnClick = ShowAllLinks1Click
        end
      end
      object RemoveLink1: TMenuItem
        Caption = '&Remove Link'
        OnClick = RemoveLink1Click
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object CrossReferenceDiary1: TMenuItem
        Caption = '&Cross Reference Diary With'
        object FirstSelectedField1: TMenuItem
          Caption = '&First Selected Field'
          OnClick = FirstSelectedField1Click
        end
        object Specify1: TMenuItem
          Caption = '&Specify'
          OnClick = FirstSelectedField1Click
        end
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object SwapSections1: TMenuItem
        Caption = '&Swap Sections'
        Hint = 'Swap Two Tab Indexes'
        OnClick = SwapSections1Click
      end
      object ReorganiseSections1: TMenuItem
        Caption = 'Re&organise Based On'
        object N22: TMenuItem
          Tag = 1
          Caption = '..'
          OnClick = N22Click
        end
        object N23: TMenuItem
          Tag = 2
          Caption = '..'
          OnClick = N22Click
        end
        object N24: TMenuItem
          Tag = 3
          Caption = '..'
          OnClick = N22Click
        end
        object N25: TMenuItem
          Tag = 4
          Caption = '..'
          OnClick = N22Click
        end
        object N26: TMenuItem
          Tag = 5
          Caption = '.'
          OnClick = N22Click
        end
        object N27: TMenuItem
          Tag = 6
          Caption = '..'
          OnClick = N22Click
        end
        object N28: TMenuItem
          Tag = 7
          Caption = '..'
          OnClick = N22Click
        end
        object N29: TMenuItem
          Tag = 8
          Caption = '..'
          OnClick = N22Click
        end
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        OnClick = Contents1Click
      end
      object HowToRegister1: TMenuItem
        Caption = '&How To Register'
        OnClick = HowToRegister1Click
      end
      object UsingTheAddressBook1: TMenuItem
        Caption = '&Using The Address Book'
        OnClick = UsingTheAddressBook1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 353
    Top = 216
    object SaveAsFile1: TMenuItem
      Caption = '&Save As File'
      Enabled = False
      OnClick = SaveAsFile1Click
    end
    object Print2: TMenuItem
      Caption = '&Print'
      Enabled = False
      OnClick = Print2Click
    end
    object N17: TMenuItem
      Caption = '-'
    end
    object Delete1: TMenuItem
      Caption = '&Delete'
      Enabled = False
      OnClick = Delete1Click
    end
    object N30: TMenuItem
      Caption = '-'
    end
    object Help2: TMenuItem
      Caption = '&Help'
      OnClick = Help2Click
    end
  end
  object CaseMenu: TPopupMenu
    AutoPopup = False
    Left = 389
    Top = 216
    object Case1: TMenuItem
      Caption = 'Case'
      Enabled = False
    end
    object N16: TMenuItem
      Caption = '-'
    end
    object C1: TMenuItem
      Tag = 1
      Caption = '1'
      OnClick = C1Click
    end
    object C2: TMenuItem
      Tag = 2
      Caption = '2'
      OnClick = C1Click
    end
    object C3: TMenuItem
      Tag = 3
      Caption = '3'
      OnClick = C1Click
    end
    object C4: TMenuItem
      Tag = 4
      Caption = '4'
      OnClick = C1Click
    end
    object C5: TMenuItem
      Tag = 5
      Caption = '5'
      OnClick = C1Click
    end
    object C6: TMenuItem
      Tag = 6
      Caption = '6'
      OnClick = C1Click
    end
    object C7: TMenuItem
      Tag = 7
      Caption = '7'
      OnClick = C1Click
    end
    object C8: TMenuItem
      Tag = 8
      Caption = '8'
      OnClick = C1Click
    end
    object C9: TMenuItem
      Tag = 9
      Caption = '9'
      OnClick = C1Click
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object WholeAddress: TMenuItem
      Tag = 10
      Caption = 'Whole Address'
      OnClick = C1Click
    end
    object EntireBook: TMenuItem
      Tag = 11
      Caption = 'Entire Book'
      OnClick = C1Click
    end
  end
end